Amigo jorge!!
Esta es para validar los text que solo entren letras!! me ayudomucho un amigo del foro...
Pruebalo en otro proyecto.. pera que veas como funciona...
<<Pega esto en el form. y crea a las ves los controles que te pide o que estan el la codificacion me imagino que entiendes!!!
Codigo del Form.....
Private cancelar As Boolean
Private Sub Command1_GotFocus()
cancelar = True
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cancelar = True
End Sub
Private Sub Text1_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub
Private Sub Text1_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text1
End Sub
Private Sub Text2_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub
Private Sub Text2_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text2
End Sub
Private Sub Command1_Click()
MsgBox "hola se termino el programa", vbCritical
End Sub
Fin del codigo del Form.......
Codigo del Modulo.bas.........
Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
Keyascii = 0
Beep
End If
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
Keyascii = Asc(UCase(Chr(Keyascii)))
End If
End Sub
Public Sub ProcesarLostFocusText(txt As TextBox)
Static Procesando As Boolean
If Procesando Then Exit Sub
Procesando = True
txt.Text = Trim(UCase(txt.Text))
If txt.Text = "" Then
MsgBox " Ingrese datos pedidos ", vbExclamation
txt.SetFocus
DoEvents
End If
Procesando = False
End Sub
Ojala te sirva es muy util lo...
chau chau y saludos...
